home *** CD-ROM | disk | FTP | other *** search
/ PC Open 108 / PC Open 108 CD 1.bin / CD1 / INTERNET / EMAIL / pop file / setup.exe / $_1_ / Text / Kakasi.pm next >
Encoding:
Perl POD Document  |  2000-12-17  |  2.5 KB  |  94 lines
  1. #
  2. # $Id: Kakasi.pm,v 1.10 2000/12/18 05:53:51 knok Exp $
  3.  
  4. package Text::Kakasi;
  5.  
  6. =head1 NAME
  7.  
  8. Text::Kakasi - kakasi library module for perl
  9.  
  10. =head1 SYNOPSIS
  11.  
  12.   use Text::Kakasi;
  13.  
  14.   $res = Text::Kakasi::getopt_argv('kakasi', '-ieuc', '-w');
  15.   $str = Text::Kakasi::do_kakasi('╞ⁿ╦▄╕∞ñ╬╩╕╗·╬≤');
  16.  
  17. =head1 DESCRIPTION
  18.  
  19. ñ│ñ╬ÑΓÑ╕Ñσí╝Ñδñ╧íó╣Γ╢╢═╡┐«ñ╡ñ≤ñ╬║ε└«ñ╡ñ∞ñ┐Ñ╜Ñ╒Ñ╚ѪѺÑóKAKASIñ≥
  20. perlñ½ñΘ═╤ñññδñ┐ñßñ╬ñΓñ╬ñ╟ñ╣íú
  21.  
  22. =over 4
  23.  
  24. =item getopt_argv($arg1, $arg2, ...)
  25.  
  26. KAKASIñ╦═┐ñ¿ñδñ┘ñ¡Ñ¬Ñ╫Ñ╖ÑτÑ≤ñ≥╗╪─Ωñ╖íó╜Θ┤ⁿ▓╜ñ≥╣╘ñññ▐ñ╣íúѬÑ╫Ñ╖ÑτÑ≤ñ╧íó
  27. kakasiÑ│Ñ▐Ñ≤Ñ╔ñ╟═╤ñññΘñ∞ñδñΓñ╬ñ╦╜αñ╕ñ▐ñ╣íú
  28. ñ▐ñ┐íó░∞╚╓║╟╜Θñ╬ѬÑ╫Ñ╖ÑτÑ≤ñ╧Ñ╫ÑφÑ░ÑΘÑαñ╬Ñ╒ÑíÑñÑδ╠╛ñ╟ñ╣íú
  29. getopt_argvñ≥╕╞ñ╙╜╨ñ╣ñ╚íó╝¡╜±Ñ╒ÑíÑñÑδñ¼openñ╡ñ∞ñ▐ñ╣íúñ│ñ∞ñ╧íó
  30. close_kanwadicñ≥╕╞ñ╙╜╨ñ╣ñ▐ñ╟Ѭí╝Ñ╫Ñ≤ñ╡ñ∞ñ┐ñ▐ñ▐ñ╦ñ╩ñΩñ▐ñ╣íú
  31.  
  32. ╬πñ¿ñ╨íó╝íñ╬ñΦñªñ╩░·┐⌠ñ╟kakasiñ≥╝┬╣╘ñ╖ñ┐ñ╚ñ¡ñ╚╞▒ñ╕╕·▓╠ñ≥╞└ñδñ┐ñßñ╦ñ╧íó
  33.  
  34. $ kakasi C<-ieuc> C<-w>
  35.  
  36. ╝íñ╬ñΦñªñ╩░·┐⌠ñ╟getopt_argvñ≥╕╞ñ╙╜╨ñ╖ñ▐ñ╣íú
  37.  
  38. getopt_argv('kakasi', 'C<-ieuc>', 'C<-w>');
  39.  
  40. =item do_kakasi($str)
  41.  
  42. ░·┐⌠ñ╦═┐ñ¿ñΘñ∞ñ┐╩╕╗·╬≤ñ╦┬╨ñ╖ñ╞╜Φ═²ñ≥╣╘ññíó╖δ▓╠ñ≥╩╕╗·╬≤ñ╚ñ╖ñ╞╩╓ñ╖ñ▐ñ╣íú
  43.  
  44. =item close_kanwadic()
  45.  
  46. Ѭí╝Ñ╫Ñ≤ñ╖ñ╞ñññ┐╝¡╜±Ñ╒ÑíÑñÑδñ≥closeñ╖ñ▐ñ╣íú
  47. Ñ╨í╝Ñ╕ÑτÑ≤0.10ñ╟ñ╧íó2▓≤░╩╛σgetopt_argvñ≥▓┐┼┘ñΓ╕╞ñ╙╜╨ñ╣╛∞╣τñ╦ñ╧íóñ╜ñ╬
  48. ┴░ñ╦close_kanwadicñ≥╕╞ñ╙╜╨ñ╣╔¼═╫ñ¼ñóñΩñ▐ñ╖ñ┐ñ¼íó0.11░▄╣╘ñ╟ñ╧getopt_argv
  49. ╞Γ╔⌠ñ╟╔¼═╫ñ¼ñóñ∞ñ╨closeñ╣ñδñ╬ñ╟íóñ│ñ╬┤╪┐⌠ñ╧╔¼ñ║ñ╖ñΓ╕╞ñ╙╜╨ñ╣╔¼═╫ñ╧
  50. ñóñΩñ▐ñ╗ñ≤íú
  51.  
  52. =back
  53.  
  54. =head1 COPYRIGHT
  55.  
  56. Copyright (C) 1998, 1999, 2000 NOKUBI Takatsugu <knok@daionet.gr.jp>
  57.  
  58. ñ│ñ╬ÑΓÑ╕Ñσí╝Ñδñ╧┤░┴┤ñ╦╠╡╩▌╛┌ñ╟ñ╣íú
  59.  
  60. ñ▐ñ┐íóñ│ñ╬ÑΓÑ╕Ñσí╝Ñδñ╧GNU General Public Licenceñ╬ñΓñ╚ñ╟║╞╟█╔╒íó
  61. ▓■╩╤ñ¼╟ºñßñΘñ∞ñ╞ñññ▐ñ╣íú╛▄║┘ñ╦ñ─ñññ╞ñ╧╔╒┬░ñ╬COPYINGñ╚ñññªÑ╒ÑíÑñÑδñ≥
  62. ╗▓╛╚ñ╖ñ╞▓╝ñ╡ññíú
  63.  
  64.     This program is free software; you can redistribute it and/or modify
  65.     it under the terms of the GNU General Public License as published by
  66.     the Free Software Foundation; either version 2 of the License, or
  67.     (at your option) any later version.
  68.  
  69.     This program is distributed in the hope that it will be useful,
  70.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  71.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  72.     GNU General Public License for more details.
  73.  
  74.     You should have received a copy of the GNU General Public License
  75.     along with this program; if not, write to the Free Software
  76.     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  77.  
  78. =cut
  79.  
  80. require Exporter;
  81. require DynaLoader;
  82.  
  83. @ISA = qw(Exporter DynaLoader);
  84.  
  85. @EXPORT_OK = qw(getopt_argv do_kakasi close_kanwadict);
  86. %EXPORT_TAGS = (all => [qw(getopt_argv do_kakasi close_kanwadict)]);
  87.  
  88. $VERSION = '1.05';
  89.  
  90. bootstrap Text::Kakasi $VERSION;
  91.  
  92. 1;
  93. __END__
  94.